<%

Function inserir_aposta(id_usuario, id_rodada, posicao, placar_1, placar_2)

	DIM rs

	If IsNumeroAposta(placar_1) AND IsNumeroAposta(placar_2) AND rodada_tempo_restante_id_rodada(id_rodada) <> FALSE then
		
		str = "DELETE FROM apostas where id_usuario="&id_usuario&" AND id_rodada="&id_rodada&" AND posicao="&posicao
  		Set rs = conexao_geral.Execute(str)	
	
		str = "INSERT into apostas "
		str = str & "(id_usuario, id_rodada, posicao, placar_1,  placar_2, pontos) "
		str = str & "VALUES ('" & id_usuario & "', "
		str = str & "'" & id_rodada & "', "		
		str = str & "'" & posicao & "', "	
		str = str & "'" & placar_1 & "', "	
		str = str & "'" & placar_2 & "', "		
		str = str & "'" & 0 & "')"						
		Set rsI = conexao_geral.Execute(str)

		usuario_registro_gravar id_usuario, "A "&id_rodada&" ("&posicao&") "&placar_1&"X"&placar_2
		
		inserir_aposta = TRUE
		
	Else
	
		inserir_aposta = FALSE
	
	End If
		
End Function

Function inserir_aposta_pontuacao(id_usuario, id_rodada, pontos)

	DIM rs
	
	str = "DELETE FROM apostas_pontuacao where id_usuario="&id_usuario&" AND id_rodada="&id_rodada
  	Set rs = conexao_geral.Execute(str)	
	
	If not rs.eof then
	
		str = "DELETE FROM apostas_pontuacao where id_usuario="&id_usuario&" AND id_rodada="&id_rodada
		Set rs = conexao_geral.Execute(str)	
	
	End If
	
		str = "INSERT into apostas_pontuacao "
		str = str & "(id_rodada, id_usuario, pontos) "
		str = str & "VALUES ('" & id_rodada & "', "
		str = str & "'" & id_usuario & "', "		
		str = str & "'" & pontos & "')"						
		Set rsI = conexao_geral.Execute(str)
		
End Function

%>
